/ MacGames Sampler / PHT MacGames Bundle.iso / MacSource Folder / Samples from the CD / Editors / emacs / Emacs-1.14b1 / lisp / mac / utils.elc

< prev

next >

MacOS 8.1

Win98

DOS

browse contents

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 09 75 74 69 6c 73 2e | 65 6c 63 00 00 00 00 00 |..utils.|elc.....|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 64 45 4c 43 45 4d 41 | 43 01 00 00 00 00 00 00 |.dELCEMA|C.......|
|00000050| 00 00 00 00 00 04 67 00 | 00 01 3c a9 83 4b 38 a9 |......g.|..<..K8.|
|00000060| a2 d8 8e 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 7b cb 00 00 |........|....{...|
|00000080| 0a 28 64 65 66 75 6e 20 | 62 72 69 6e 67 2d 65 6d |.(defun |bring-em|
|00000090| 61 63 73 2d 74 6f 2d 74 | 68 65 2d 66 72 6f 6e 74 |acs-to-t|he-front|
|000000a0| 20 6e 69 6c 20 28 62 79 | 74 65 2d 63 6f 64 65 20 | nil (by|te-code |
|000000b0| 22 c2 c3 c4 21 c5 5c 22 | 18 c6 c4 08 c7 c5 24 88 |"...!.\"|......$.|
|000000c0| c6 c4 08 c8 09 24 88 c9 | 08 21 29 87 22 20 5b 75 |.....$..|.!)." [u|
|000000d0| 73 20 6b 43 75 72 72 65 | 6e 74 50 72 6f 63 65 73 |s kCurre|ntProces|
|000000e0| 73 20 6d 61 6b 65 2d 73 | 74 72 69 6e 67 20 63 3a |s make-s|tring c:|
|000000f0| 73 69 7a 65 6f 66 20 50 | 72 6f 63 65 73 73 53 65 |sizeof P|rocessSe|
|00000100| 72 69 61 6c 4e 75 6d 62 | 65 72 20 30 20 63 3a 73 |rialNumb|er 0 c:s|
|00000110| 6c 6f 74 73 65 74 20 68 | 69 67 68 4c 6f 6e 67 4f |lotset h|ighLongO|
|00000120| 66 50 53 4e 20 6c 6f 77 | 4c 6f 6e 67 4f 66 50 53 |fPSN low|LongOfPS|
|00000130| 4e 20 53 65 74 46 72 6f | 6e 74 50 72 6f 63 65 73 |N SetFro|ntProces|
|00000140| 73 5d 20 38 29 29 0a 0a | 28 64 65 66 75 6e 20 68 |s] 8))..|(defun h|
|00000150| 65 78 2d 73 74 72 69 6e | 67 2d 74 6f 2d 69 6e 74 |ex-strin|g-to-int|
|00000160| 20 28 73 74 72 69 6e 67 | 29 20 28 62 79 74 65 2d | (string|) (byte-|
|00000170| 63 6f 64 65 20 22 c4 08 | 21 83 0a 00 08 82 76 00 |code "..|!.....v.|
|00000180| c5 08 47 21 83 15 00 c6 | 82 76 00 c7 08 c8 c9 4f |..G!....|.v.....O|
|00000190| 21 1a 0a c7 ca 21 59 85 | 29 00 0a c7 cb 21 58 83 |!....!Y.|)....!X.|
|000001a0| 34 00 0a c7 ca 21 5a 82 | 69 00 0a c7 cc 21 59 85 |4....!Z.|i....!Y.|
|000001b0| 41 00 0a c7 cd 21 58 83 | 4e 00 ce 0a c7 cc 21 5a |A....!X.|N.....!Z|
|000001c0| 5c 5c 82 69 00 0a c7 cf | 21 59 85 5b 00 0a c7 d0 |\\.i....|!Y.[....|
|000001d0| 21 58 83 68 00 ce 0a c7 | cf 21 5a 5c 5c 82 69 00 |!X.h....|.!Z\\.i.|
|000001e0| c6 1b 0b d1 d2 d3 08 c6 | c8 4f 21 5c 22 5c 5c 2a |........|.O!\"\\*|
|000001f0| 87 22 20 5b 73 74 72 69 | 6e 67 20 74 20 63 20 70 |." [stri|ng t c p|
|00000200| 6c 61 63 65 20 6e 75 6d | 62 65 72 70 20 7a 65 72 |lace num|berp zer|
|00000210| 6f 70 20 30 20 73 74 72 | 69 6e 67 2d 74 6f 2d 63 |op 0 str|ing-to-c|
|00000220| 68 61 72 20 2d 31 20 6e | 69 6c 20 22 30 22 20 22 |har -1 n|il "0" "|
|00000230| 39 22 20 22 61 22 20 22 | 66 22 20 31 30 20 22 41 |9" "a" "|f" 10 "A|
|00000240| 22 20 22 46 22 20 2a 20 | 31 36 20 68 65 78 2d 73 |" "F" * |16 hex-s|
|00000250| 74 72 69 6e 67 2d 74 6f | 2d 69 6e 74 5d 20 31 39 |tring-to|-int] 19|
|00000260| 29 29 0a 0a 28 64 65 66 | 75 6e 20 65 6e 63 6f 64 |))..(def|un encod|
|00000270| 65 2d 6c 6f 6e 67 2d 69 | 6e 74 65 67 65 72 20 28 |e-long-i|nteger (|
|00000280| 69 29 20 28 62 79 74 65 | 2d 63 6f 64 65 20 22 c2 |i) (byte|-code ".|
|00000290| c3 c4 5c 22 18 c5 08 c4 | c6 09 24 88 08 29 87 22 |..\"....|..$..)."|
|000002a0| 20 5b 73 20 69 20 6d 61 | 6b 65 2d 73 74 72 69 6e | [s i ma|ke-strin|
|000002b0| 67 20 34 20 30 20 65 6e | 63 6f 64 65 2d 69 6e 74 |g 4 0 en|code-int|
|000002c0| 65 72 6e 61 6c 20 6c 6f | 6e 67 5d 20 36 29 29 0a |ernal lo|ng] 6)).|
|000002d0| 0a 28 64 65 66 75 6e 20 | 50 74 6f 43 73 74 72 20 |.(defun |PtoCstr |
|000002e0| 28 73 29 20 28 62 79 74 | 65 2d 63 6f 64 65 20 22 |(s) (byt|e-code "|
|000002f0| c2 09 c3 c4 23 18 09 c5 | 08 54 4f 29 87 22 20 5b |....#...|.TO)." [|
|00000300| 6e 20 73 20 65 78 74 72 | 61 63 74 2d 69 6e 74 65 |n s extr|act-inte|
|00000310| 72 6e 61 6c 20 30 20 75 | 6e 73 69 67 6e 65 64 2d |rnal 0 u|nsigned-|
|00000320| 63 68 61 72 20 31 5d 20 | 34 29 29 0a 0a 28 64 65 |char 1] |4))..(de|
|00000330| 66 75 6e 20 43 74 6f 50 | 73 74 72 20 28 73 29 20 |fun CtoP|str (s) |
|00000340| 28 62 79 74 65 2d 63 6f | 64 65 20 22 09 47 18 08 |(byte-co|de ".G..|
|00000350| c4 56 83 0d 00 c4 82 0e | 00 08 1a c5 09 50 1b c6 |.V......|.....P..|
|00000360| 0b c7 c8 0a 24 88 0b 2b | 87 22 20 5b 6e 20 73 20 |....$..+|." [n s |
|00000370| 6d 20 75 20 32 35 35 20 | 22 20 22 20 65 6e 63 6f |m u 255 |" " enco|
|00000380| 64 65 2d 69 6e 74 65 72 | 6e 61 6c 20 30 20 63 68 |de-inter|nal 0 ch|
|00000390| 61 72 5d 20 35 29 29 0a | 0a 28 64 65 66 75 6e 20 |ar] 5)).|.(defun |
|000003a0| 6e 6d 61 70 63 61 72 20 | 28 66 20 26 72 65 73 74 |nmapcar |(f &rest|
|000003b0| 20 78 29 20 28 62 79 74 | 65 2d 63 6f 64 65 20 22 | x) (byt|e-code "|
|000003c0| 08 40 3f 83 0a 00 c1 82 | 1a 00 c3 0a c4 c5 08 5c |.@?.....|.......\|
|000003d0| 22 5c 22 c3 c6 0a c4 c7 | 08 5c 22 23 42 87 22 20 |"\".....|.\"#B." |
|000003e0| 5b 78 20 6e 69 6c 20 66 | 20 61 70 70 6c 79 20 6d |[x nil f| apply m|
|000003f0| 61 70 63 61 72 20 63 61 | 72 20 6e 6d 61 70 63 61 |apcar ca|r nmapca|
|00000400| 72 20 63 64 72 5d 20 39 | 29 29 0a 0a 28 64 65 66 |r cdr] 9|))..(def|
|00000410| 75 6e 20 6d 61 6b 65 2d | 72 67 62 20 28 72 20 67 |un make-|rgb (r g|
|00000420| 20 62 29 20 28 62 79 74 | 65 2d 63 6f 64 65 20 22 | b) (byt|e-code "|
|00000430| c4 c5 c6 21 c7 5c 22 18 | c8 c6 08 c9 09 24 88 c8 |...!.\".|.....$..|
|00000440| c6 08 ca 0a 24 88 c8 c6 | 08 cb 0b 24 88 08 29 87 |....$...|...$..).|
|00000450| 22 20 5b 73 20 72 20 67 | 20 62 20 6d 61 6b 65 2d |" [s r g| b make-|
|00000460| 73 74 72 69 6e 67 20 63 | 3a 73 69 7a 65 6f 66 20 |string c|:sizeof |
|00000470| 52 47 42 43 6f 6c 6f 72 | 20 30 20 63 3a 73 6c 6f |RGBColor| 0 c:slo|
|00000480| 74 73 65 74 20 72 65 64 | 20 67 72 65 65 6e 20 62 |tset red| green b|
|00000490| 6c 75 65 5d 20 39 29 29 | 0a 0a 28 64 65 66 75 6e |lue] 9))|..(defun|
|000004a0| 20 6d 61 6b 65 2d 72 65 | 63 74 20 6e 69 6c 20 28 | make-re|ct nil (|
|000004b0| 62 79 74 65 2d 63 6f 64 | 65 20 22 c0 c1 c2 21 c3 |byte-cod|e "...!.|
|000004c0| 5c 22 87 22 20 5b 6d 61 | 6b 65 2d 73 74 72 69 6e |\"." [ma|ke-strin|
|000004d0| 67 20 63 3a 73 69 7a 65 | 6f 66 20 52 65 63 74 20 |g c:size|of Rect |
|000004e0| 30 5d 20 34 29 29 0a 00 | 00 00 00 00 00 00 00 00 |0] 4))..|........|
|000004f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000500| 00 00 01 00 00 00 01 0a | 00 00 00 0a 00 00 00 32 |........|.......2|
|00000510| 72 6e 61 6c 20 69 74 65 | 6d 20 30 20 27 73 68 6f |rnal ite|m 0 'sho|
|00000520| 72 74 29 29 0d 20 20 20 | 20 20 20 28 4d 6f 64 61 |rt)).   |   (Moda|
|00000530| 09 75 74 69 6c 73 2e 65 | 6c 63 02 00 00 00 64 45 |.utils.e|lc....dE|
|00000540| 4c 43 45 4d 41 43 01 00 | 04 10 00 80 00 00 00 00 |LCEMAC..|........|
|00000550| 00 00 64 45 4c 43 45 4d | 41 43 01 00 04 10 00 80 |..dELCEM|AC......|
|00000560| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000570| 00 00 a9 83 4b 38 00 00 | 04 67 00 00 01 3c 64 20 |....K8..|.g...<d |
|00000580| 66 6f 72 20 6e 65 78 74 | 20 6d 61 72 6b 65 64 20 |for next| marked |
|00000590| 66 69 6c 65 29 22 20 64 | 69 72 65 64 2d 6e 65 78 |file)" d|ired-nex|
|000005a0| 74 2d 6d 61 72 6b 65 64 | 2d 66 69 6c 65 5d 20 31 |t-marked|-file] 1|
|000005b0| 30 29 29 0a 0a 28 64 65 | 66 75 6e 20 64 69 72 65 |0))..(de|fun dire|
|000005c0| 64 2d 70 72 65 76 2d 6d | 61 72 6b 65 64 2d 66 69 |d-prev-m|arked-fi|
|000005d0| 6c 65 20 28 61 72 67 20 | 26 6f 70 74 69 6f 6e 61 |le (arg |&optiona|
|000005e0| 6c 20 77 72 61 70 29 20 | 22 5c 0a 4d 6f 76 65 20 |l wrap) |"\.Move |
|000005f0| 74 6f 20 74 68 65 20 70 | 72 65 76 69 6f 75 73 20 |to the p|revious |
|00000600| 00 00 00 06 05 45 6d 61 | 63 73 00 00 01 00 00 00 |.....Ema|cs......|
|00000610| 01 0a 00 00 00 0a 00 00 | 00 32 00 52 68 34 05 e2 |........|.2.Rh4..|
|00000620| 00 00 00 1c 00 32 00 00 | 53 54 52 20 00 00 00 0a |.....2..|STR ....|
|00000630| bf f4 ff ff 00 00 00 00 | 00 58 ad dc 00 00 00 00 |........|.X......|
|00000640| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000650| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000660| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000670| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+